(prompt "In welchem Verzeichnis soll \"MailFilter\" installiert werden? Alle nötigen Dateien werden direkt in dieses Verzeichnis kopiert!")
(help @askdir-help)
(default progdir)
)
)
)
)
(set @default-dest progdir)
(if copyprefs
(copyfiles
(prompt "Kopieren der Programmdateien")
(help @copyfiles-help)
(source "")
(dest progdir)
(pattern "MailFilter#?")
(infos)
(files)
(confirm)
)
(
(copyfiles
(prompt "Kopieren der Programmdateien. Die Datei \"MailFilter.prefs\" wird, falls nötig, in ein neues Format konvertiert. Die alte Datei bleibt dann unter dem Namen \"MailFilter.prefs.old\" erhalten.")
(help @copyfiles-help)
(source "")
(dest progdir)
(pattern "(MailFilter|MailFilter.guide)")
(infos)
(files)
(confirm)
)
(run "ConvertPrefs MAILFILTER:MailFilter.prefs")
)
)
(set screenname
(askstring
(prompt "Welchen Namen hat der PublicScreen von \"Zodiac's Point?\"")
(prompt "Soll MailFilter nach jedem Reset automatisch gestartet werden? Wenn Sie jetzt \"Ja\" wählen wird ein Projekt-Piktogramm nach \"SYS:Wbstartup\" kopiert!")
(help "Keine Hilfe verfügbar.")
(choices "Ja" "Nein")
(default 0)
)
)
)
(if auswahl
(
(copyfiles
(prompt "Kopieren des Piktogramms \"Start_MailFilter.info\" nach \"SYS:Wbstartup\".")
(help @copyfiles-help)
(source "")
(dest "SYS:Wbstartup")
(pattern "Start_MailFilter.info")
(files)
(confirm)
)
(tooltype
(prompt "")
(dest "SYS:Wbstartup/Start_MailFilter")
(setdefaulttool tool)
(noposition)
)
)
)
(set auswahl
(askbool
(prompt "\"Mailfilter\" kann über ARexx mit \"Zodiac's Point\" zusammenarbeiten! Sollen die nötigen ARexx-Scripts jetzt installiert werden?")
(help "Keine Hilfe verfügbar.")
(choices "Ja" "Nein")
(default 0)
)
)
(if auswahl
(
(set lhaprog
(askfile
(prompt "LhA muß aus den ARexx-Scripts heraus gestartet werden können. Dazu muß der Pfad von LhA bekannt sein. Wählen Sie jetzt bitte den LhA Befehl aus!")
(help @askfile-help)
(default "LhA")
)
)
(set pathname (pathonly (expandpath lhaprog)))
(set lzxprog (tackon pathname "LZX"))
(set lzxprog
(askfile
(prompt "LZX muß aus den ARexx-Scripts heraus gestartet werden können. Dazu muß der Pfad von LhA bekannt sein. Wählen Sie jetzt bitte den LZX Befehl aus!")
(help @askfile-help)
(default lzxprog)
)
)
(set pathname (pathonly (expandpath lzxprog)))
(set unzipprog (tackon pathname "UnZip"))
(set unzipprog
(askfile
(prompt "UnZip muß aus den ARexx-Scripts heraus gestartet werden können. Dazu muß der Pfad von LhA bekannt sein. Wählen Sie jetzt bitte den UnZip Befehl aus!")
(help @askfile-help)
(default unzipprog)
)
)
(set tempdir
(askdir
(prompt "Zum Entpacken der Netcall-Archive wird ein temporäres Verzeichnis benötigt. In diesem Verzeichnis muß genug Platz für den gesamten, entpackten Puffer sein! Welches Verzeichnis soll verwendet werden?")
(help @askdir-help)
(default "T:")
)
)
(if (exists "ZP:Rexx" (noreq))
(
(set rexxdir "ZP:Rexx")
)
(
(if (exists "ZPoint:Rexx" (noreq))
(
(set rexxdir "ZPoint:Rexx")
)
(
(set rexxdir @default-dest)
)
)
)
)
(set rexxdir
(askdir
(prompt "Die ARexx-Scripts müssen in das Verzeichnis \"ZPOINT:Rexx\" kopiert werden! Wählen Sie jetzt bitte dieses Verzeichnis als Zielverzeichnis!")
(append "** Hier müssen die kompletten Pfade der Packer LHA, LZX und UNZIP\n")
(append "** eingetragen werden. Für Packer, die nicht verwendet werden, muß\n")
(append "** nichts angegeben werden. Alle Pfade müssen in Anführungszeichen\n")
(append "** oder Hochkommas stehen.\n")
(append "** \n")
(append "*/\n")
(append "\n")
(append "lha = '")
(append lhaprog)
(append "'\n")
(append "lzx = '")
(append lzxprog)
(append "'\n")
(append "unzip = '")
(append unzipprog)
(append "'\n")
(append "\n")
(append "\n")
(append "/*\n")
(append "** Hier wird ein Verzeichnis für temporäre Daten angegeben. Auf\n")
(append "** dem Datenträger, der dieses Verzeichnis enthält muß genügend\n")
(append "** Speicherplatz für den gesamten, entpackten Puffer vorhanden\n")
(append "** sein. Der Pfad muß in Anführungszeichen oder Hochkommas stehen.\n")
(append "*/\n")
(append "\n")
(append "tempdir = '")
(append tempdir)
(append "'\n")
(append "\n")
(append "\n")
(include "ZPoint/rexx/FilterPuffer.install")
)
(copyfiles
(prompt "Kopieren der ARexx-Scripts für das automatische Eintragen von Absendern, Betreffs und Headern in die Filterliste.")
(help @copyfiles-help)
(source "ZPoint")
(dest rexxdir)
(pattern "#?.zprx")
(files)
(confirm)
)
)
)
(if (not update)
(
(startup @app-name
(prompt "Die Anweisung:\n\"Assign MAILFILTER: " progdir "\"\nmuß zur \"S:User-Startup\" hinzugefügt werden.\n\n Das logische Verzeichnis \"MAILFILTER:\" ist nötig damit das Programm aus den ARexx-Scripts gestartet werden kann. Die Voreinstellungen werden ebenfalls in diesem Verzeichnis gesucht.")
(help @startup-help)
(command "Assign MAILFILTER: \"" progdir "\"\n")
)
(makeassign "MAILFILTER" progdir)
)
)
(exit "Damit das empfangene Archiv beim Netcall automatisch gefiltert wird müssen Sie \"Zodiac's Point\" starten und \"Konfiguration erstellen/Pfade und Kommandos\" aufrufen. Im Eingabefeld für den \"Entpacker\" tragen Sie bitte folgendes ein:\nsys:rexxc/rx rexx/filterpuffer.zprx %s %s\n\nViel Spaß beim Filtern! :-)")
